(COMMENT BPS 16500. LIST 40000 SPECPDL 1000. regpdl 10000.)

(PROGN

(defun if macro (l)(cons 'cond (ifxxx1 (cdr l))))

(defun ifxxx1 (u) (cond ((null u) nil) ((null (cdr u)) (list (list t (car u))))
(t (cons (list (car u) (cadr u)) (ifxxx1 (cddr u))))))
	

(FASLOAD DEMON FAS DSK (AID RPG))
(HELP)
(COND ((STATUS NOFEATURES NEWIO)
       (FASLOAD ESCI FAS DSK (MAC LSP))))
(ESCI-ENB)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(*RSET T)
 T)



;;;((LAMBDA (↑W) (REQUIRE MACLIS INI DSK (/206 CLT)))  T)

;;; The following taken from my lisp.ini file.
(PROGN

(defun if macro (l)(cons 'cond (ifxxx1 (cdr l))))

(defun ifxxx1 (u) (cond ((null u) nil) ((null (cdr u)) (list (list t (car u))))
(t (cons (list (car u) (cadr u)) (ifxxx1 (cddr u))))))
	

(FASLOAD DEMON FAS DSK (AID RPG))
(HELP)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(*RSET T)
(and si:ecalledp
     (fasload emaclsp fas dsk (mac lsp)))
 T)



;;;((LAMBDA (↑W) (REQUIRE MACLIS INI DSK (/206 CLT)))  T)